home *** CD-ROM | disk | FTP | other *** search
/ Stone Design / Stone Design.iso / Stone_Friends / Wave / WavesWorld / Examples / graphsInSpace / grid.wwModel / model.eve < prev   
Encoding:
Text File  |  1995-03-22  |  690 b   |  28 lines
  1.  
  2. #we want a patch where positive X is ascending time, and have 
  3.  
  4. set width 8
  5. set depth 3
  6. set text(color) "1 1 1"
  7. set text(fontName) Helvetica
  8. set text(size) 18
  9.  
  10. startShape  floor
  11.   MakeTexture $modelPath/grid.tiff /tmp/grid.tx clamp clamp box 2 2 
  12.   Surface paintedplastic texturename /tmp/grid.tx
  13.   Patch bilinear P "0 0 0  \
  14.                     0 0 $depth \
  15.                     $width 0 0 \
  16.                     $width 0 $depth"
  17.   startShape ticks
  18.     Surface constant
  19.     for {set i 0} {$i <= $width} {incr i} \
  20.     {  startShape tick.${i}
  21.          Translate $i 0 0; 
  22.          Color $text(color)
  23.          WW3DText $text(fontName) $text(size) $i;
  24.        endShape
  25.     }
  26.   endShape
  27. endShape
  28.